Sample Code - SortField Object

This sample code shows the use of the SortField Object. Modify the following sample code to fit your needs.

    Dim crystalreport As CRPEAuto.Report
Dim sortFlds As CRPEAuto.SortFields
Dim sortFld As CRPEAuto.SortField
Dim fldDef As CRPEAuto.Object 'field definition
Dim crwApplication As CRPEAuto.Application

Private Sub Command1_Click()

'returns/sets field definition for sort field
'name for record sort field
Set crwApplication = CreateObject("Crystal.CRPE.Application")
Set crystalreport = crwApplication.OpenReport _
    ("c:\crw\reports\xtreme\wwsales.rpt")
Set sortFlds = crystalreport.RecordSortFields
sortFlds.Add crDescending, "{Customer.Region}"
Set sortFld = sortFlds.Item(1)
Set fldDef = sortFld.Field
MsgBox "Name for record sort field: " & fldDef.Name

End Sub


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com